TRS-80 Mailing List System 
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The TRS-80 Mailing List System is a RAM-based LEVEL II BASIC 

program that builds and maintains a list of names, and retrieves them 
individually. 

When used with the TRS-80 Hxpansion Interface and Line Printer, it 
will print mailing labels on standard 3-1/2" by 1 5/16" label stock. 
Printing can be performed "selectively", either for a single name or 
for a group of names based upon zip codes, street names, cities, 
states, or even for a special "select code' . 

The program features a live keyboard for quick response times 
you don't have to press l^bcllftJUl when choosing an option. 
Another advantage is dynamic space allocation. This means the 
program will use as little memory as possible when storing names. 

At the end of this manual, you'll find a complete listing of the 
Mailing List Program. It's provided as a convenience in case you 
want to study the program, modify it. or verify that your CLOADed 
program in RAM is correct. 

Note: This program requires 16K of RAM. It will not run if you 
attempt to protect memory with the MLMORY SI/1 option. 

To Load the Mailing List System 

Prepare the tape recorder, volume setting »-<>. and press PLAY. Type: 
CL0FID"M" LJ4M:liJ 

or just 

clow \%Em 

When READY reappears, type: 

run mam 

Cassette tapes are used to save names and addresses. There is no 
limit to the number of cassette tapes you can create with the system, 
so theoretically you can have thousands of names in your system. 

There is a limit to the number of nam's o\\ each tape; it is a function 
of memory size. 

Average Capacity 

RAM Length of Lntries < Names Per Tape) 

16K ^0 150 

32K 50 4^0 

48K 50 750 
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How to Use the MaaMeg List System 

The program offers 6 options: 

<fl>DO NAMES TO THE MAILING LIST 
<R>EflD MAILING LIST FROM TAPE 
<S>EARCH/CHANGE THE MAILING LIST 
<L>I5T NAMES ON THE SCREEN 
<P>RINT MAILING LABELS 
<W>RITE MAILING LIST ON TAPE 

Whenever this option list ("menu") is displayed, you can select the 
desired option by typing the first letter of (he command you wish to 
execute. For example, type the letter P to print mailing labels. You 
do not need to press [371733 



Add Names to the Mailing List (A-Option) 

This is the first step in setting up the system. Before you begin, think 
a minute about how you will be using the mailing list, because the 
system allows for "selective label printing". This means you can 
choose to print labels only for people who live in ,1 certain city or 
have a zip code beginning with certain digits. You can even use this 
"select code" as an indicator for informal ion unrelated to the 
address. 

Example: a club might use the select code to indicate whether or not 
a person has paid his membership dues. I he club chooses to write 
PAID 78 in the select code field, to note that a member's dues have 
been paid through 1978. Using this as a select code, the club could 
then print labels for paid-up numbers to send them activities notices, 
and later print another set of labels for members-m-had-standing to 
send them payment reminders. 

When you're ready, type the letter A: 

The program will ask: 

WOULD YOU LIKE TO ENTER A SELECT C0DE<Y/N>? 

If you want to use this feature, reply Y. It' you do not, reply N and 
that field will not be used. You will only be given this select code 
option once for each RUN of the program. 

You can choose to include a telephone number or company name, 
but not both. The program asks for a I or a ('; reply with the 
heading most appropriate for your application. You will only be 
given this select code option once for each RUN of the program. 
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The program asks if you want instructions for entering data. Reply 
YorN. 

Note: Before you begin, you should understand that the TRS-80, as 
all computers do, compares words and values by literal character by 
character evaluation. It doesn't care how you enter a city, for 
example, but it will look for it just as entered when you ask for 
labels. If the city is "Fort Worth", the following are not equal in 
the TRS-80's evaluation method: 

FORT WORTH 
FORT WORTH 
FT. WORTH 
FT WORTH 

If you have entries using all four, and ask for labels for everyone in 
Fort Worth, you would have to make more than one run to get them 
all. Decide in the beginning how entries will be made and standardize 
all of them. 

Note: Length of field is not controlled by the program. The 
maximum recommended field length for good labels is 26 
characters. 

Now you begin typing the names and addresses. Press EZH33 
after each field is typed in. 

You may type the name two different ways. Hither: 
fir st name lastname 

NAME ?J0HN SMITH 

or: last name, first name 

NAME 7SMITH, JOHN 

When labels are printed, the program will rearrange the name to print 
first name first and last name last. However, the names will be sorted 
according to the first name you type in. Therefore, type in all your 
names the same way. The presence of the comma will cause the 
switch during printout (so only use commas for last name, first 
name entries). 

When finished, just press QZEUD instead of typing a name. (If you 

run out of memory before all the names are in, a message 

** OUT OF MEMORY ** w '" appear on the screen and you will have to create 

more than one tape.) 



The names will be sorted automatically into alphabetical order 
(according to the first name you entered). This will take from a few 
seconds to several minutes. 

Write Mailing List on Tape (W-Option) 

The W option will take all names in memory and write them to tape. 
You should use this option after adding names to the mailing list or 
changing the mailing list. While you may write over old tapes, it is 
best to erase them with a high-quality bulk tape eraser Mich as the 
Radio Shack #44-210. The program will instruct: 

RECORD MAILING LIST ON TAPE 

SETUP THE RECORDER AND PRESS ENTER WHEN READV. 
TO EXIT, FRESS E 

Load a blank tape into the recorder. If the tape has a leader, be sure 
to advance the tape past the leader. Ihess l'l AY and RECORD on 
the cassette recorder and press HN'I'l'R. I he names will be recorded 
and when complete, you will be returned to the menu. 

Read Names from Tape (R-Option) 

Select this option to load a mailing lisi from tape (created with the 
Write option). Once you have created Mich tapes, you will normally 
use this option at the beginning < f each session with the program. 

Reading names from tape automatically clears out the mailing list 
previously stored m memory so befoie Reading in i new list In- 
sure to Writc-to-tape any names you mvd lo save. 
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Search/Change the Mailing List (S-Option) 

This option lets you locate a particular name for reference or 
alteration. Type the letter S and the program will ask: 

SEARCH/CHANGE 

TO DISPLAY fl NAME, ENTER ENOUGH LETTERS TO IDENTIFY ITr 
TO EXIT THIS MODE PRESS ENTER ? 

To locate John Smith's address type SMITH, JOHN (assuming you 
have entered it this way) and press fjfflhjlMil ■ The program will 
display John Smith's name and address in seconds. 

You're not required to enter the entire name. If you just type 
SMITH, the first SMITH in the list will appear. If you type S, the 
first name beginning with the letter S will appear. Once you're this 
close, it's easy to step through the list (type N) to find the desired 
name. 

If the name you enter is not found, the message: 
** NOT IN THE LIST ** will appear 

There are 7 options listed above the name and address information. 

P TO DISPLAY PREVIOUS NAME 

Type the letter P (do not press B^EGE] ) and the name stored 
immediately before the current name will be displayed. 

N TO DISPLAY THE NEXT NAME 

Type the letter N and the name stored immediately after the current 
will be displayed. 

S TO SEARCH FOR A NEW NAME 

Type the letter S and the program will respond just as above. 

SHIFT D TO DELETE NAME 

Hold down the shift key and type the letter I). The name displayed 
on the screen will be deleted from memory and the next name in 
the list will appear on the screen. Once deleted, a name cannot he 
recalled. 

C TO CHANGE A FIELD 

Type the letter C and the program will ask: 

TYPE IN THE NUMBER OF THE FIELD & THEN ENTER THE NEW VALUE 



The fields are numbered from 1 to 6 ( 1-7 if you use a select code). 
Type the number associated with the field you want to change (do 
not press IJUMMJil )■ A question mark will appear beside the selected 
field. Now type in the new information ami press MJhri^Ul when 
finished. The information on the screen will include your changes. 

The program provides for error recovery with the following option. 

Q TO CANCEL PREVIOUS CHANCES 

If you have just made changes and would like to restore the original 
information because of entry errors, type the letter Q. This will 
return all the old information to the screen and clear all changes 
from memory for that one name. The Q option can only be used 
immediately after the C option. Once any other option (P,N,S, Shift 
D,E) has been used, recovery is impossible; reload the name tape or 
change the incorrect name entry. 

E TO EXIT 

Type E to return to the original menu. 

List Names on the Screen (L-Option) 

The L option lists the names in memory on the screen; no addresses 
are printed. Fourteen names are printed ami the program asks: 

PRESS E TO EXIT ENTER TO CONTINUE 

Type the letter H to return to the menu, or press [33133 to display 
the next fourteen names. 

Print Mailing Labels (P-Option) 

This option controls all printing operations. The program asks: 

DO VOU WANT TO PRINT LRBELS FOR THE WHOLE LISTCV/N)? 

If you reply N (no), the program asks: 

WHICH FIELD WOULD VOU LIKE TO USE FOR ft SELECT C0DE<1 - 6 ) 

(or 1-7 if the special select code was requested earlic ). You can 
selectively print on any criterion. 1 he numbers ( 1-0 ' refer to a field 
position: 

1 is name 

2 is company or telephone number 

3 is address 

4 is city 

5 is state 

6 is zip code 

7 (if used) is a special select code. 
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Example: 

You choose field 4 (city) as a select code and the value you type is: 
FT. WORTH. The program will print mailing labels tor all names 
which have FT. WORTH as the city. If you type only FT. W as the 
select code value, the program may print labels for FT. WORTH, FT. 
WAYNE, and FT. WALTON BEACH. This feature is especially useful 
when applied to the zip code field. By specifying the first 3 digits of 
the zip code, you can print labels for "sorted bundles" and take 
advantage of reduced postal rates. 

Before printing begins, several other questions appear on the screen. 
If you use COMPANY NAME instead of TELEPHONE NUMBER, 
you have this option: 

DO YOU WfiNT TO PRINT THE COMPANY NAME ON THE LABELS <Y/N>? 

"Y" prints the name, "N" does not. 

Since the TRS-80 line printer has adjustable character sizes, you are 
given a trial run. 

DO YOU WANT A TRIAL RUNWN)? 

If you reply Y, the first label will be printed 3 times. While the 
printer is working you should adjust the character size and align the 
labels so the address is well centered. You are given as many trial 
runs as necessary. 

Once the labels are aligned, reply "N" tor "no more trial runs" and 
the program will instruct: 

PRESS ENTER TO START PRINTING, E TO EXIT 

Just press l=UXAJlAi and the labels will be printed. You may also type 
E to return to the menu. When printing is completed, the program 
asks: 

DO YOU WANT TO READ IN ANY MORE TAPES <V/N>? 



This feature allows you to load additional names into memory and 
continue printing with the same selection criterion. A reply of N (no) 
returns you to the menu. 

Note: If you choose to load an additional tape, you must print the 
labels for the names on this additional tape. 1 o load another tape 
without printing, or with a different select code, you must first 
return to the menu, replying "NO", and load the new tape with the 
R option. 



Program Listing 



8 CLS:PRINT8276, "** INITIALIZING **" :CLEAR<0) 

1 REM -<C)19?8 BV RADIO SHACK, A DIV. OF TANDV CORP. -ALL RIGHTS RESERVED. 

5 I FMEM>40888THENCLE AR < 31588 ) : H I =481 

ELSE I FMEM>28888THENCLEAR( 18888) : HI =251 

ELSECLEAR<6888):HI=31 
18 DEFINTI-N, G, E, P, S:DIMFI$<HI, 6) 
28 HI=HI-1:N=8:M=0 
30 P0KE16553, 255: RESTORE :F0RI=1T06.READB*<I): NEXT: CLS :PRINT(»17, "MAILING LIST SVSTEM" : 

PRINT8131, "OPTIONS AVAILABLE: " 
40 PRINTC*256, "<A>DD NAMES TO THE MAILING LIST" :PRINT"<R>EAD MAILING LIST FROM TAPE" 
50 PRINT"<S>EARCH/CHANGE THE MAILING LIST" : PR INT" <L> I ST NAMES ON THE SCREEN" 
60 PRINT"<P>RINT MAILING LABELS" :PRINT"<U>RITE MAILING LIST ON TAPE" 
65 PRIMW15, "** # OF NAMES IN LIST=";N;" **" 
70 PRINT&832, "SELECT VOUR OPTION" 
80 P=851:PRINT@P,CHR*<142) 
90 G0SUB2888:I=1 

188 IFB$< I )=A$THEN118 : ELSE 1=1+1 : IFK7THEN188 : ELSE98 
110 ON I GOTO 120,800,980,600.2000,700 
120 IFMO0THEN295 

140 CLS:PRINT<»17, "ADD NAMES TO THE MAILING LIST" 

150 PRINT0128, "WOULD VOU LIKE TO ENTER A SELECT CODE<V/N)?" : P=172 : GOSUB2800 
160 IFA$="Y"THENPRINT"Y"; :M=6:ELSEPRINT"N"; :M=5 

170 PRINTG256, "VOU HAVE THE OPTION TO INCLUDE TELEPHONE # OR COMPANV NAME IN" 
180 PR I NT "VOUR MAILING LIST. WHICH DO VOU SELECT <T/C)?" :P=365:G=0 
198 GOSUB3608 : I F A$= " T " THENG=1 : GOTO208 : ELSE I F A$<> " C " THEN198 

288 PRINTAS; :PRINT(?448, "DO VOU WANT INSTRUCTIONS ON HOW TO ENTER DATA(V/N)?" :P=588 
218 GOSUB2808: IFA$="N"THEN300 
220 CLS : GOSUB500O 

230 PRINT0512, "REPRODUCED ABOVE IS THE SCREEN AS IT WILL APPEAR DURING DATA" 
248 PRINT"ENTRV. TVPE IN EACH ITEM OF INFORMATION FOR A GIVEN PERSON AND" 
258 PR I NT "PRESS ENTER. AFTER VOU HAVE ENTERED THE LAST ITEM, VOU WILL BE" 
260 PR I NT "PROMPTED IN THE SAME WAV FOR INFORMATION FOR THE NEXT PERSON. " 
270 PRINT" VOU CAN EXIT THIS MODE BV PRESSING ENTER (WITHOUT TVPING" 
280 PR I NT "ANYTHING) WHEN THE COMPUTER IS WAITING FOR THE NAME. " 
298 PRINT0989, ""; : GOSUB6880 : P=101i : G0SUB3888 
295 E=8 

388 CLS : I FN<H I THEN318 : ELSE I FE=1THENG0SUB9888 
385 G0T0488 

318 N=N+1 : I =8 : G0SUB5888 
315 PRINT"" :PRINT"":PRINT" " :FORK=0TO55: PRINT"-"; : NEXT: PRINT" ": PRINT" ": PRINT" TO 

EXIT THIS MODE PRESS ENTER. ELSE TVPE IN THE DATA":K=15 
328 PRINTCK, "?"; :P=16:G0SUB4888:FI$(N, I)=B$<I) : IFIO0THEN330:ELSEIFFI$<N, DO""THEN33 





(Program Listing, cont.) 

322 N=N-1 : IFE=0THEN30 : ELSEGOSUB900O : GOTO30 

336 1=1+1 : K=K+64 : IFK=MTHEN320:ELSEE=1:GOTO300 

400 PRINT0148, "** OUT OF MEMORY **" :PRINT<?256, "DO VOU WANT TO RECORD THE CURRENT LIST 

ON TAPE < WN ) ? " : P=309 : GOSUB3000 
410 PRINT"" -.PRINT"" : IFA$="Y"THENGOSUB10000 

420 PRINT"DO VOU WANT TO CLEAR THE MEMORY FOR ADDITIONAL NAMES<Y/N>?"; :GOSUB8000 
430 IFA$="Y"THENN=0 
440 GOTO30 
600 CLS : IFN=0THENGOSUB11000 : G0T030 

610 1=1 

628 J=l 

630 PRINTFI$(L0):J=J+1: 1=1+1 :IFI>NTHEN650:ELSEIFJ<15THEN630 

640 PRINT"" :PRINT" PRESS E TO EXIT, ENTER TO CONTINUE"; GQSUB8000: IFASC<A$>=69THEN 

30ELSEPRINT"":GOTO620 
650 PRINT" ** END OF LIST **" : GOSU66000 : GOSUB8080 : GOTO30 
?0O CLS:IFN=0THEN GOSUB11000 : G0T030 

710 PRINTG17, "RECORD MAILING LIST ON TAPE" : PRINT" " : GOSUB10080 : G0T030 
800 CLS:PRINT@17, "READ MAILING LIST" : GOSUB1409O : GOTO30 
900 E=0 

965 I FE=1THENGOSUB16000 : E=0 
906 CLS : IFN=0THENGOSUB1100O : GOTO30 
910 PRINTG20, "SEARCH/CHANGE" 

920 PRINT0128, "TO DISPLAY A NAME, ENTER ENOUGH LETTERS TO IDENTIFY IT. " 
930 PRINT"TO EXIT THIS MODE PRESS ENTER ?"; : 
940 I =0 ; P=31 : GOSUB4000 : 1 FB$ < ) = " " THEN30 

950 J=1:K=N 

960 IFK<JTHENPRINT@223, "", CHR$<31) :PRINT<?394, "** ";B*<0>;" NOT IN THE LIST **":PRINT<? 

223,""; -GOTO940 
970 I=INT<<J+KV2> :B$<1)=LEFT$<FI$<I, 8), LEN<B$(0))) 
980 I FB$ < > <B* < 1 ) THENK= I -1 : G0T0968 
990 I FB$ ( »B$ ( 1 ) THEN J= I +1 : G0T0968 

1000 CLS:PRINT@4, "TYPE: " :PRINT(?12S, "<P> TO DISPLAY PREVIOUS NAME" 
1010 PRINT0160, "<SHIFT D> TO DELETE NAME" :PRINT(?192, "<N> TO DISPLAY NEXT NAME" 
1020 PRINTP224, "<X> TO CHANGE A FIELD" :PRINT0256, "<S> TO SEARCH FOR A NEW NAME" 
1030 PRINTC-288, "<Q> TO CANCEL PREVIOUS CHANGES" :FR I NTG343, "<E> TO EXIT 
1040 FOR J=0TOM : B$ ( J ) =F I $ U , J ) : NEXT 
1045 PRINTC'512, "";CHR*<31); : 

1050 GOSUB17000:K=512:FORJ=0TOM:PRINT@K, J+1j :PRINT(?K+9, B$<J>; :K=K+64:NEXT 
1060 P=387 : GOSUB3000 : I FA$<> " C " THEN1130 

1070 PRINT0387, "TYPE IN THE NUMBER OF THE FIELD & THEN ENTER THE NEW VALUE"; : 
1080 P=446 : GOSUB3000 : 1 FA$< " 1 " ORA$> " 7 " THEN1O80ELSE J=VAL < A$ ) 
1090 IFJ>M+1THEN1080ELSEPRINT(?387, " "; CHR$(30) : J=J-1 
1100 K=547+64*J:PRINTPK, '">"; :K=I : I=J:P=36:FI$<0, 0)=B$<J) :GOSUB4000: I=K 
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(Program Listing, cont.) 



1110 IFB*(J)=""THENB$<J>=FI$<0, 6) 

1120 GOTO1045 

1130 IFA$="Q"THEN1040 

1135 IFfl$O"E"THEN1140 

1126 GOSUB15000: IFE=1THENGOSUB16000 

11K7 GOTO30 

1140 IFA$="S"THENGOSUB15000 : G0T0985 

1150 I F A$<> " N " THEN1160ELSEGOSUB15000 

1151 I = I +1 : I F I >NTHEN985ELSE I FF I $ < L ) = " " THEN1151ELSE1040 

1160 I Ffl$<> " P " THEN1170ELSEGO5UB15090 

1161 1=1-1 : IFK1THEN905ELSEIFFI$< L 8)=" "THEN1161ELSE1040 
1170 IFASC<A$)O100THEN1060ELSEFI$(L 0)="" :E=1 

1180 I = I +1 : I F I >NTHEN905ELSE I FF I $ ( L ) = " " THEH1180ELSE1040 
2000 CLS: IFN=0THENGOSUB11000:GOTO30 
2010 PRINT018, "PRINT MAILING LABELS" 

2020 PRINT@128, "DO VOU WANT TO PRINT LABELS FOR THE WHOLE LISTCV/N)?"; : 
2030 GOSUB8000:IFA$="V"THENB$<0)="" :PRINT"V" PRINT"" : GOTO2070ELSEPR INT" N"; : 
2040 PR I NT"": PR I NT"": PR I NT "WHICH FIELD WOULD VOU LIKE TO USE FOR A SELECT CODEC1 -";M 
+1; ..)... • 

2058 P=316:GOSUB3080: IFA$<"1"0RA$>"7"THEN2858ELSE S=VAL<A$>-1 

2860 IFS>MTHEN2858ELSEPRINTS+1; :PRINT"" :PRINT"TVPE IN A VALUE FOR THE SELECT CODE'?", : 

P=36 : 1=0 : GOSUB4000 : PRINT" " : PRINT" " 
2070 IFG=1THENE=0:GOTO2890:ELSEPRINT"DO VOU WANT TO PRINT THE COMPANV NAME ON THE LAB 

ELSWN)?"; :GOSUB8800 
2080 IFA$="N"THENE=0ELSEE=1 
2090 CLS:PRINT"VOU WILL NOW BE GIVEN TRIAL RUNS TO ALIGN THE LABELS" : PR I NT "AND ADJUST 

CHARACTER SIZE. " 
2100 PR I NT "A TRIAL RUN CONSISTS OF PRINTING 3 LABELS. " 
2110 PRINT"AFTER EACH TRIAL RUN VOU MAV ASK FOR ANOTHER TRIAL RUN" 
2120 PR I NT "OR GO AHEAD AND PRINT THE LABELS. " 
2120 PR I NT "SETUP THE LABELS AND TURN ON THE PRINTER. 
2135 PRINT"" :PRINT"DO VOU WANT A TRIAL RUN<V/N)?"; : GOSUB8000: PRINT" ": PRINT" ": IFA$="N" 

THEN2168 
2140 IFPEEK(14312»127THENPRINT"** PRINTER NOT READV **":G0T02135 
2150 FOR J=1T03 .1=1: GOSUB19008 : NEXT : G0T02135 
2160 PRINT'TRESS ENTER TO START PRINTING, E TO EXIT"; : GOSUB8000: PRINT" ": IFA$="E"THEN2 



2170 IFPEEK<14312»=128THENPRINT"": PRINT"** PRINTER NOT READV **" .PRINT" " :G0T02160 
2175 1=1 
2180 A$="":J=1 

2190 A$=INKEV$: IFA$O""THEN2200ELSEJ=J+1: IFJ<5THEN2190ELSE2210 

2200 PRINT"": PR I NT "PRESS ENTER TO CONTINUE, E TO EXIT"; :GOSUB8000: PRINT"" : IFA$="E"THE 
N20 
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2218 G0SUB18888: 1=1+1: IFK=NTHEN2188 

2228 PRINT"" :PRINT"D0 VOU WANT TO RERD IN RNY MORE TRPESCY/N)?"; :G0SUB8888:PRINT"" 

2238 I FR$= " V " THENG0SUB14888 : I FR$= " E " THEN30ELSEPR I NT " " : PR I NT " " : G0SUB6838 : G0SUB8888 : PR I 

NT"": PRINT" ":G0T021?8 
2248 G0T038 
2888 fi$="" 

2818 PRINT8P, CHR$< 143); :L=1 

3828 fl$=INKEY$:IFR$0""THEN PRINT8P, " "; : RETURN 
2825 L=L+1:IFL<16THEN3828 
3828 PRINT8P, " "; : FORL=1TG10 : NEXT : G0T03818 
4888 PRINTCHR5(14); :B$(I)="" 
4818 fl$=INKEV$: IFfl*=""THEN4818 
4828 IFR$=CHR*<13>THENPRINTCHR$<15>; : RETURN 
4828 IFR$=CHR$<8)THENIFB$< DO" "THENPRINTR$, : B$< I )=LEFT$<B$< I >, LEN(B$< I ) )-l) : G0T04818 

:ELSEG0T04818 
4035 IFR$=CHR$<24)THENPRINTCHR$<29);STRING$<P, CHR$<25)>;CHR$<38>; :G0T04888 
4840 IFRSC<R$X320R RSC(fi$»98THEN4816 
4858 PRINTfl*; :IFR$=", "THSNR$="; " 
4868 B$<I)=8$<I)+R$:G0T04818 

5088 PR I NT "NAME " 

5818 IFG=1THENPRINT"TELEPH0NE " : ELSEPRINT"COMPRNY " 

5828 PRINT"RDDRESS " :PRINT"CITV " :PRINT"STRTE " 

5838 PRINT"2IP " : IFM=5THEN RETURN 

5848 PRINT"SELECT CODE ": RETURN 

6889 PR I NT "PRESS ENTER TO CONTINUE"; : RETURN 

7888 PRINT"** NO DRTR IN MEMORY **": RETURN 

8889 GOSUB13888:GOSUB2880: RETURN 

9080 IFN<2THEN RETURN 

9885 CLS:PRINT@276, "** SORTING LIST **" 

9818 I=8:F0RJ=2T0N 

9828 K= J-l : F0RL=8T0M : B$ < L) =F I $ < X L) : NEXT 

9938 IFB*<I»=FI$<K, DTHEN9868 

9848 FORL=0TOM : F I $ < K+l, L ) =F I $ < K, L) : NEXT 

9859 K=K-1:IFK>0THEN9038 

9868 F0RL=8T0M : FI$<K+1, L)=B$(L) : NEXT 

9878 NEXT J: RETURN 

18868 GOSUB12609 

18895 I FR$= " E " THENPR I NT " " : PR I NT " " : RETURN 

18818 PRINT"" : PRINT" " :G0SUB13888:PRINT@P+i8, "** RECORDING DRTR **":PRINT"" 

18828 PRINT*- 1,11, G, N 

18830 IFH=5THENF0RI=1T0N:PRINT»-1,FI$<I,8>,FI$<L1),FI*<L2),FI$<L3),FI$<L4),FI$<L 

5>:NEXT:GOTO10050 
10048 FORI=lTON:PRINT#-l, FI$<L 8), FI$< L 1), FI$<L 2), FI$<L 3), FI$<L 4), FI$<L 5), FI$<L 

6): NEXT 
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1CSS0 PRlFJTII-i, "-, "'", "", ""5 "", "3, "'2 RETURN 

11CG3 PRINT027G, ""; :G0SU37C33:PRINT0550, "", : G0SU3S330 : P=SM : G0SU32033 : RETURN 

12333 PR'NT'TSTU? THE RECORDER RND PRESS ENTER NHEN RERDV. *3' PR I NT "TO EXIT, PRESS E'G ■ 

GQS053333 : RETURN 
13833 P=(23S;N22EK<lS417)-i-PEEK(1641 6) )-15359: RETURN 
14533 PRINT"" :G03U312C53: ir-TN^'TR'THEN RETURN 

14010 PRINT"": PRINT"" : 0053313033 .PRINTGR-J-IO, "** PENDING DfiTR **" :PRINT"" 
14013 I=N:J=G:I3-N 
14023 INRUTO-! N, G, U 

14010 IFN>N ITNEN14020 : ELSEIFGO0RNDGO1THEN1409Q ■ ELSEIFnO5RNL>nO<STNEN14099 
14343 r^l:RM=STHENi407O 

14C50 INPUTw-1, FI$(N; 0), FI$(N, 1), FI$(N, 2), FI$(N, 3), FI$<N, 4), FI$(M, 5) 
14C20 IFFUKN, 0)0" "' RENN=NH : G0T014G53 : ELSEN=N~1 : R0XE1C333, 253 : RETURN 
14070 INPUT,;--!, FI$(N, 0), FI.v(N, 1), FI$(N, 2), FI$(N, 3), FI$<M 4), FI$<M, 3), FI$(N, 6) 
14533 IFFIv(?3 0X>""TRENN-.J'H:G0T014n70:ELSEN^N-l:P0RE13353, 233:RETtJRN 
14323 PRINT"\; :G03U313333:PRINTCR-M0, "** TRPE RERD ERROR **" :N=I :G'-J N=K:G0T0i4G30 
rS.L3 FO:-JJ=JTCM :FI$< I, J)=S:;<J) : NEXT: RETURN 
16323 CLS:PRINT0243, "** RECOVERING SPREE **" : 1=1 
IGOiO IFF I$U,0)=""TKENIF I ^NTHENN-N-l: RETURN: 
ELSE:-'URJ=ITGN- 1 FORK=OTOM FI$(J 

, K)=FI$(J+i, l<) NEXT: NEXT: 
K=N-1: 1=1-1 
16028 1 = 1+1: IF I3NTRENRETURN.ELSE16G10 

17033 PRINT" NRNE-- ":IFG=1THENPRINT" TEL— "ELSEPRINT" COMp— " 
1701Q PRINT" RDDR— ": PRINT" CITV— " PRINT" ST ":PRINT" ZIP— -" : IFM=STKENPR 

INT" SEL— " 
17020 RETURN 

18003 IFB$(0)=""THEN138e9 

10310 IFE5(0)^LEFT5(FI$(LS> ; LEN(D5(O)))THEN19e3OELSERETURN 
3 9533 K=l 
13331 IFNID$(FI$(I,0),K, 1) = ", "THENIFK=1TRENRETURN: ElSELPRINTniN${FI$<L 8), K+l); " 'OLE 

FT$ < F I $ (1,0), K-l ) • G0T0190G5 
12002 K=:<-H:IFK<=LEN(FI$(LO))TI!EN1' : 'GO1FLSELRRINTFI5(L0) 
j.2333 IFE^1TRENLPRINTFI5(I. 1 :> 
13313 LRRINIf 1 5 a, 2) :LPRINTFI$U, <">■ " ". n$(I. 4), "-".; F'R$(L 5) :LPRINTCHR$(138) LPRI 

HT0RRX130> 
19015 irE=GTKENLPRINTCRR$(138).ELSEIFFI$(I,l .) = ""THENLPRIHTCHR$(139) 
13020 RETURN 

2GGS0 DITTR R, R, 5, L, P, N 
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